home *** CD-ROM | disk | FTP | other *** search
/ Creative Review 34 / Creative-Review-CD-ROM-34.iso / pc / foo / foos.dir / 00094_Script_Sound Play File < prev    next >
Text File  |  1998-01-23  |  2KB  |  79 lines
  1. --  Sound Play File
  2.  
  3.  
  4. -- also functions through lingo by handling message 'initPlayFile', 
  5. -- for example if this behavior was assigned to sprite 5, use
  6. -- sendsprite 5, #initPlayFile
  7.  
  8. -- Media
  9. property WhichEvent, WhichSound, WhichChannel, StartImmediately
  10. property tester
  11.  
  12. on initPlayFile me
  13.   init me
  14. end
  15.  
  16. on mouseUp me
  17.   if whichEvent = #mouseup    then init me
  18. end
  19.  
  20. on mouseDown me
  21.   if whichEvent = #mousedown  then init me
  22. end
  23.  
  24. on prepareFrame me
  25.   if whichEvent = #prepareframe then init me
  26. end
  27.  
  28. on enterFrame me
  29.   if whichEvent = #enterframe then init me
  30. end
  31.  
  32. on exitFrame me
  33.   if whichEvent = #exitframe  then init me
  34. end
  35.  
  36. on init me
  37.   sound playFile the whichChannel of me, the soundFile of me
  38. end
  39.  
  40. ---
  41.  
  42. on getPropertyDescriptionList
  43.   
  44.   set p_list = [ ¼
  45.      #soundFile: [ #comment:   "Sound File:", ¼
  46.                     #format:   #string, ¼
  47.                    #default:   "" ], ¼
  48.   #whichChannel: [ #comment:   "Channel:", ¼
  49.                     #format:   #integer, ¼
  50.                    #default:    1 ], ¼
  51.     #whichEvent: [ #comment:   "Initializing Event:", ¼
  52.                     #format:   #symbol, ¼
  53.                      #range: [ #MouseUp, #MouseDown, #PrepareFrame,#EnterFrame, #ExitFrame, #InitPlayFile], ¼
  54.                    #default:   #MouseUp ]¼
  55.                  ]
  56.   return p_list  
  57. end
  58.  
  59. on BeginSprite me
  60.   -- check for relative pathnames and convert them to absolutes
  61.   -- to support organizing files in subdirectories
  62.   set f = the soundFile of me
  63.   if (( f contains "\" ) OR ( f contains "/" )) then  -- trying to specify a path
  64.     if NOT ( f contains ":" ) then                    -- leave absolute paths alone
  65.       set the soundFile of me = the moviePath & the soundFile of me
  66.     end if
  67.   end if
  68. end
  69.  
  70. on getBehaviorDescription
  71.   return ¼
  72. "Plays the designated external sound file ( AIFF or WAVE format ) when the specified event occurs." & RETURN & ¼
  73. "PARAMETERS:" & RETURN & ¼
  74. "ò Sound - Enter the file name of the external sound file to be played. If the file is not in the same folder as the movie, enter the relative pathname. To play a sound from the internet, enter a URL."  & RETURN & ¼
  75. "ò Channel - Enter the number of the sound channel to be used for playback."  & RETURN & ¼
  76. "ò Initializing Event - Specify the event that triggers the behavior."
  77. end
  78.  
  79.